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1 . SCOPE 


This dociunent describes the detailed design characteristics of 
the Boundary Detection and Registration Program (BDARPl) , as 
built for the Bendix 100 Interactive Drafting System. The BDARPl 
is an unsophisticated version of the final software system, yet 
it provides the user with the basic capabilities of obtaining 
classified data boundary plots, editing, and registration of the 
final boundary plot to a user-selected base. 



2. APPLICABLE DOCUMENTS 


The following documents form a part of this specification to the 
extent specified herein t 

e Technical Memorandum Software Specifications for Automated 
Thematic Plotting of Classified Digital Data, LEC-8289 

e Technical Memorandum Project Development Plan for the Sendix 
Interactive Drafting System Modification, LEC-8968 

e Design Specification for Automated Thematic Plotting of 
Classified Digital Data, LEC-9506 

e Technical Memorandum Acceptance Test Plan for Boundary Detection 
and Registration Program (BDARPl) , L.EC>10672 

e TIRF 76-0046 



3. SYSTEM DESCRIPTION 


The Boundary Detection and Registration Program (BDARPl) was 
designed and implemented as an addition to the basic Bendix 100 
Drafting Program. The BDARPl consists of three overlays: 

USER08 - the classified tape initialization module 

T2 - the tape read and data storage routine 

T3 - the boundary detection and registration algorithm 

To begin processing, USER08 accepts the user's options and reads 
the header record from a 7-track, 800 BPI, even parity universal 
formatted classified tape directly or indirectly obtained from the 
GE Interactive Multispectral Image Analyst System (Image 100) , 
the Earth Resources Interactive Processing System (ERIPS) or 
the UNIVAC 1100 Software. 


USER08 then calls overlay T2, which reads the required number of 
data records from the magnetic tape. The data are processed, 
packed and written on a temporary disk file, TDATA. Corner 
reference ticks are placed on the drawing file. 

Overlay T2 calls the third and last overlay - T3. Overlay T3 
reads the data stored in TDATA, one line at a time, and performs 
the boundary detection and registration algorithm. The resultant 
boundary information is written into a standard format drawing 
file, and control is then returned to the basic Bendix 100 
Drafting Program. Editing and write tape functions are now 
available to prepare the boundary data for plotting. 


BDARPl is designed to process one class at a time. For the case 
of multiple classes, BDARPl has to run as many times as the 
number of classes. Each execution of BDARPl under the Drafting 
Program is initialized by selecting USER OPTION; 8 on the menu. 



When processing is completed, BDARPl informs the user by sounding 
the tone on the display device (Tektronix) and illuminating the 
red indicator light on the digitizer cursor. 

Note that the editing and tape write functions are currently 
available under Bendix System 100 and can be used as long as the 
drawing file format used to store the boundary strings by the 
boundary detection routine is identical to the one employed by 
the Bendix System 100 software. Since no additional software is 
required for the editing and write tape routines, these two are 
not included in the software description. However, as a result, 
it imposes a restriction on the file format to be used to store 
the boundary strings. 

3.1 HARDWARE DESCRIPTION 
Bendix System 100 configuration. 

3.2 SOFTWARE DESCRIPTION 

In this section each of the three overlays which form an integral 
part of BDARPl is further broken down into subroutines. Brief 
functional descriptions of each subroutine as well as inter- 
subroutine relationships are discussed. 

Overlay USER08 is the initialization module for BDARPl, and 
consists of the following routines: 

DRVF - the driver routine for this overlay 

INPBD - the subroutine which interacts with the operator to 
accomplish input of the control parameters 

REAHD - subroutine which reads the header recor<f on the classi- 
fied input tape 

INITN - subroutine which error checks header record data and 
positions the tape for reading the image data 


CON79 subroutine which converts unformatted input data to byte 
data 

The second overlay, T2, which perfoms input of classified data, 
consists of the following routines: 

RDLIN - reads the classified data tape and packs the data into a 
temporary disk file, TDATA 

ISET - sets the appropriate bits in 16 bit words to indicate 

which pixels belong to the class being examined. These 
words are the packed data which ROLIN packs into TDATA 

CON79 - same as CON79 in overlay USER08 

FRAME “ subroutine which inserts corner ticks in the drawing file 

LINIT - subroutine which performs 8-parameter transformation to 
the data and ^ends it to the System 100 drawing file 

The third and final overlay in BDARPl is designated T3. This 
overlay is the boundary detection algorithm, which examines the 
packed data in TDATA, creates boundary strings to represent the 
boundaries of the specified data class, and writes these 
boundary strings into a drawing file formatted for the Bendix 
system. The routines which comprise overlay T3 are: 

BDT3 - This is the main routine for T3 and the principal routine 
for the boundary detection algorithm. 

READAT - This subroutine reads bit images of line data from the 
temporary disk file, TDATA. 

IGET - This subroutine unpacks the bit data read into READAT for 
the boundary detection algorithm. 

FILL - This routine redefines appropriate pixels as ''classified" 
to facilitate connectivity as defined by the user input 
parameter Epsilen. 
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FINDAR - Subroutine which finds the appropriate boundary string 
to which a boundary line segment belongs. 

CONECT; CONALL; JOIN - Subroutines which link appropriate boundary 
strings . 

CLSTST - Subroutine which periodically checks the status of 

boundary strings for completeness, and processes the 
complete ones. 

AREAl - Subroutine which computes the area in pixel units of each 
classified group. 

LINIT - Subroutine which performs 8-parameter transformation to 
the data and sends it to the System 100 drawing file. 

ENDTST - Subroutine which handles segmentation of large plot 
string arrays. 

3.2.1 SOFTWARE COMPONENT NO. 1 (DRVF) 

3. 2. 1.1 Linkage 

Subroutine DRVF calls user svibroutines INPBD and INITN, and calls 
the system subroutine FRNOV. 

3. 2. 1.2 Interface 

DRVF is linked with the common block ICONS (see Appendix A) which 
houses all the basic control parameters for BDARPl. 

3. 2. 1.3 Input 
None 

3. 2. 1. 4 Output 

An error message is output including an error code whenever the 
system subroutine FRNOV fails. 




3. 2. 1.5 Storage Requirements 
Subroutine DRVF requires 184 words in core. 

3. 2. 1.6 Description 

DRVF is the driver for the initial overlay USER08, and calls 
overlay T2 into core after USER08 has been executed. 

3. 2. 1.7 Flowchart 


3. 2. 1.8 Listing 



(DRVF) 


f 


START 


^ooii qua ;]', 


I .IN?®? 

Obtain file no. , ' 
Tape parity, emd | 
First line no. 


i NiTN n 

Read Header i 
Record and 
j Position tape to^ 
j First line no . J 


I INPBD 

pbtain remaining 
^nput parameters 
j from operator 



Store input j 
from INPBD into: 
common block 
i /ICONS/ 

' I” 

I 


FRNOV j 

(System sub- 
routine) bring 
overlay T2 into 

Ljsssaf.‘‘e3 . i 

i 


' END 




COMMON 'ICONS" I0<14>. 0PTNSU6). ISET 
DIMENSION ICe(5}> I0ENT<2e>. IALPH<9> 
1ALPH< 1 >«"T2" 

IALPH<2>*"^1’* 

CALL INPBOd) 

CALL INITN 
CALL INPBD<2> 

IALPH<3>=0 

IER=e 

CALL FRNOV<IALPN.IER) 

PAUSE OIONT USE FRNOU SUCCESSFULLY 
uRiTE< ie> leei ) ier 
1001 FORMAT<10X,"IER *">I4) 

PAUSE OUERLAY ERROR-NO RETURN TO SYSTEM 101 
END 


READY 


3.2.2 SOFTWARE COMPONENT NO. 2 (INPBD) 

3. 2. 2.1 Linkage 

Subroutine INPBD is called by DRVF. 

3. 2. 2. 2 Interface 

The basic common block ICONS (see Appendix A) which houses all 
the necessary control parameters is created by subroutine INPBD. 

3. 2. 2. 3 Input 

All the basic information which BDARPl needs for execution is 
requested and received by INPBD via the teletype or display screen 
and keyboard. The operator is queried for the following: 

1. Tape file no. 

2. Parity (0 or 3) 

3. First line no. 

4. Last line no. 

5. First pixel no. 

6. Last pixel no. 

7. Channel no. 

8. Class value 

9. Epsilon value 

10. Kappa value 

11. Eight coefficients for registration (optional) 

3. 2. 2. 4 Output 

The above control parameter queries are displayed on the screen. 

3. 2. 2. 5 Storage Requirements 

Subroutine INPBD requires 584 words in core. 


3. 2. 2. 6 Description 

Subroutine INPBD Interacts with the operator to bring In the 
basic control parameters for BDARPl execution, and defines them 
as components of the vector OPTNS (see Appendix A) which is part 
of the common block ICONS. 

3. 2. 2. 7 Flowchart 

3. 2. 2. 8 Listing 



(XNPBD) 





SET COEFFICIENTS 
TO DEFAULT, OR 



j COEPTIciENT'2 ■ * ■ 

1 COEFFICIENT 3 » * i 

I COEFFICIENT 4 - * 

I COEFFICIENT 5 ■ * 

j COEFFICIENT 6 » * 

I COEFFICIENT 7 ■ * 

i COF,* ICXENT 8 = * 


LIST LIMES - 33 

RE*^OY 

SUBROUTINE INPBD vLL> 

COMMON /ICONS I0U4 >.OPTNS< 16). I SET 
ir<LL NE n CO TO 101 

WRITEU0 . n 

1 FOf?MrtT< 10X. ”»*»»* BOUNDARY DETECTION PROGRAM 

' 28S . "UERS ION 1 '• . ////// > 

WRITE< 10. 2> 

C FORMAT^ 20X, "ENTER " . . 23:{. " 1 . TAPE FILE NO . ) 

READ Ul> 0PTNS<2> 

WRITER 10.21 ) 

21 F0RMAT<23X ."2 PARITY<0 OR 1> «" > 

READ < 1 1 > 0PTNS< 3 > 

WRITER 10.22) 

_2 FORMaTc 23X,"3 FIRST LINE NO. ■" ) 
read < 1 1 • OPTNS^ 1 > 

RETURN 
101 CONTINUE 
WRITE< 10,3) 

Z F0RMhT<23X,"4. LAST LINE NO. ■“ > 

READ ill) ORTNS< 2 ) 

WRITE- 10,4) 

4 F0RMmT<.23X,"5. first PIXEL N0.«*') 

REhD ill' OPTNS< 3 ) 

WRITE' 10, S) 

•j F0RMaT<23X,"6 LAST PIXEL NO. •" > 

PEmO ' ll) 0PTNS<4) 

WRITEi 10, S> 

5 F0RMMTi23X, "7. CHANNEL NO. ■" ) 

READ 'll) OPTNS< 5 > 

WRITEi 10,7) 

7 FORMAT* 23X, "8 CLASS UALUE »" ) 

READ < 11 ) OPTNS< € ) 




I LINES - 33 


WK1TE» 10 8' 

■S F OPNnTv 23X . " 9 . EPS I LON UrtLUE *'* > 

READ »> m OPTNS< 7 > 

WRlTEv 10. 9> 

!:* KORf1AT«.22X . "lO KAPPA UALUE »" > 

READ* 1 1 ' OPTNS<s 8 ) 

WRITE' 10. 10> 

i»i FORMAT*. .10N. "ENTER EIGHT COEFFICIENTS FOP REGISTRATION" 
30N. "OR". ION. "ENTER 999 AS THE FIRST COEFFICIENT") 

DO 100 1«18 
WRITE* 10. n ) I 

: 1 format* isx.. "COEFFICIENT 'Ml." «" ) 

REmIi *11* OPTNS*. J ) 

MOr-OPTNS< J ) 

IF HOP -'5??' 100. 120. 100 
.*jt' *:0NTIN0E 
GO TO 130 
120 DO 200 N-10.1E 
200 OPTMi* H'* ■ 0.0 
.1tFTHV9 > ■ 1.0 
.'F TM':.. 15>« I 0 
130 ChLL FCN0T<“!") 

F t TURN 
EMO 


chIjV 




3.2.3 SOFTWARE COMPONENT NO. 3 (REAHD) 


3. 2. 3.1 Linkage 

Subroutine REAHD is called in overlay USER08 by subroutine INITN, 
aiiU calls subroutines CON79 and ROTAPE (a system subroutine 
which affects magnetic tape reading) . 

3. 2. 3. 2 Interface 

The control information from the header record, and the informa- 
tion needed to read the header record, is transmitted through 
the common block ICONS. 

3. 2. 3. 3 Input 

The subroutine reads the header record on the data tape. 

3. 2. 3.4 Output 

Error messages may be displayed to the operator if subroutine 
REAHD encounters ambiguities in the header information. 

3. 2. 3. 5 Storage Requirements 

Subroutine REAHD requires 650 words in core. 

3.2. 3.6 Description 

The main purpose of fiubroutine REAHD is to read the header record 
from the designated file on the data tape. A conversion using 
CON79 is required to obtain descriptive values. These elements 
are tested and, if valid, are stored in the vector ID in the 
common block ICONS. If adequate information to process the data 
is not available, a message to that effect alerts the operator 
and the run is terminated. Under certain conditions, however, 
when only one or two parameters are in error, the subroutine will 
supply "standard* values for the one or two in error, and executioi 




of BDARPl will be attempted. An appropriate warning will be 
communicated to the operator under this condition. 

3. 2. 3. 7 Flowchart 

3. 2. 3. 8 Listing 



(REAHD) 



t 


SET UP BYTE 
REFERENCE TABLES 
IN ZTEMP 
[ AND ILIST 


j RDTAPE_ 

I (SYSTEM SUB- 
i ROUTINE) READ 
! ONE RECORD OP , 
' DATA INTO lA I 

I J 


CON79 

CONVERT 7- 
TRACK INPUT 
I INTO 9-TRACX 
I IMAGE BYTES 


SET UP STANDARD 
HEADER VALUES 
IN ID ARRAY 

L. .... 


LOOKS 
--^IKE A HEADER 

RECORD 



USING BYTE 
REFERENCE TABLES, 
'PLACE BYTE DATA 
INTO ID ARRAY 


J 


V. 




RETURN 


READY 


SUBROUTINE REAHO <NOHO) 

COMMON /ICONS/' I0<14)/ OPTNS<16>>' IFLAC 
DIMENSION IA(4e8e>. INC 2)/ IB<3> 

DATA IHO /0/ 

DATA LIST /S.7/Il>lI.2.3/l/4/4/8/I2/12/9/10>10.6/E^ 

DATA IBYTE /90/9I >92.93/ 102/ 103/ I04a05> 106/ 107> 108/ 109. 1778/ 

178!>. 1786. 1787. 1788^ 

IF <IHO> 160. 20/ 160 
20 NIT » 0 
N » 4080 
IPAR » 0PTNS<3> 

CALL RDTAPECNIT/ lA. N/ IPAR. KSHR/ JCON> 

IN<1> ■ lACl) 

INC2) = IAC2) 

CALL C0N79 CIN. IB) 

IF <IB(1» 70/ 30/ 70 
30 IF <IBC2) - 1> 70/ 35/ 70 

35 WRITE <10/535) IBC2) 

535 FORMAT CIX/ " SINCE FIRST WORD • "/ 13/"/ THIS RECORD APPEARS 10 
BE DATA INSTEAD HEADER. MILL TRY TO USE STANDARD UALUES.") 

Cttt mHO = 1 FOR 1-100/ 2 FOR LARSYS AND 3 FOR 1100. 

IF (NOHO - 2) 40/ 50/ 60 
40 ID<1> » 1 

I0<2> « 0 
I0< 3) * 0 
I0<4> » 70 
ID<5) * 3 
ID<6> » 500 
ID<7) » 8 
I0<8> * 0 
ID<9) = 1 
lOClO) * 3 
IOC 11) « 1 




READY 


ORlGIXi'J, PAGE IS 
OF POOR QUALITY 


ID < 12> « 1 
GO TO l€9 
50 GO TO 40 

C««« USE 1-100 UNTIL UALUES FOR LARSYS AUAILABLE 
60 GO TO 40 

C ttt INSERT UNIUAC CONSTANTS WHEN AUAILABLE 
70 I a 57 
K * 87 
L * 1 

80 I a I 2 

IF <1 - 75 ) 90, 85, 90 
85 I a 1185 
K a 1776 

90 INCl) * IA<I) 

IN<2) a IA<I ♦ 1) 

CALL C0N79 < IN, IB) 

IHO a lACI * 1) 

C WRITE <10,930) IN, IB, IA<I), IHO, I, K, L 

C ttt PUT UALUES FROM TAPE INTO BYTE 
DO 100 N a 1,3 
K a K ♦ 1 

IF <K - IBYTE(L)) 100, 95, 105 
95 IBYTE<L) ■ IB<N) 

L a L ♦! 
lee COf'ITINUE 

IF <I - 1191) 80, 110, 110 

105 WRITE <10,605) K, IBYTE<L) 

605 FORMAT UX, " HOW CAN K * ", 13," WHICH IS LARGER THAN", 14) 
C ttt TEST FOR TWO-BYTE WORDS AND STORE IN ID 

110 Lai 

120 IF <L - 16) 130, 130, 160 

130 N a LIST<L) 

K a L 1- 1 


non 




IF <LIST<L) > LIST<K>> 140. ISO. 140 
140 ID<N> • 1BYTE<L> 

L = L ♦ 1 
GO TO 120 

ISO 1140 « 1BYTE<L) » 400K * XBYTE<K> 

10(N> « lUO 
L = L ♦ 2 
GO TO 120 
160 IHO * 1 

WRITE <10. 650 > 10 

650 FORMAT < IX. 1 OX. "HEADER UALUES FROM TAPE . " '^2< 7 IS/*/ >) 
ttt IHO FLAG SHOWS HEADER RECORD HAS BEEH READ. 

RETURN 

END 


READY 



3.2.4 SOFTWARE COMPONENT NO. 4 (INITN) 


3. 2. 4.1 Linkage 

Subroutine INITN is called by the driver subroutine DRVF in 
overlay USER08, and in turn calls user subroutines REAHD and 
CON79 and system subroutines RDTAPE and SPACE. 

3. 2. 4. 2 Interface 

The common block ICONS transmits control information to INITN. 

3. 2. 4. 3 Input 
See 3. 2. 4. 2. 


3. 2. 4. 4 Output 
None 


3. 2. 4. 5 Storage Requirements 

Subroutine INITN requires 396 words in core. 

3. 2. 4. 6 Description 

Subroutine INITN begins by positioning the input tape to the 
requested file and reading the header record via subroutine 
REAHD. Additional error checks are performed on the header data, 
then the input tape is positioned to the record containing the 
first data line requested by the user. 

3. 2. 4. 7 Flowchart 

3. 2. 4. 8 Listing 


(INIMl) 




N 



L- 

__SPi 

AQ6 


; (SYSTEM SUB- 
ROUTINE) POSITION 
I TAPE TO PROPER 1 
1 Fmt. ---T — 1 



. L 

nSAOH 

READ HEADER 
RECORD 


, STORE HEADER 

Idata in common 

I BLOCK /ICONS/ 


i 

PERFORM HEADER 
DATA TEST 




i OUTPUT 
APPROPRIATE 
ERROR 
MESSAGE 


SDTAPE 


(SYSTEM SUB- 
ROUTINE) READ 
A DATA RECORD 


r 

t ■ 


CON79 

CONVERT 
APPROPRIATE 
DATA TO 
LINE NUMBER 


,j 


THIS ■ 
„.'^CORD HAS 
THE STARTING 
DATA RE- 
QUESTED 




SP ACE~ 

(SYSTEM SUB- 1 
ROUTINE) BACK- 
SPACE ONE 
RECORD 


..I 



RETURN 


READY 


SUBROUTINE INITN 

COMMON ICONS- ID(‘ 14). 0PTNS<16). IFLGl 
DIMENSION 1A<4880). IN<2>. IB<3> 

ISYS=1 
IFLG1=0 
NIT = 0 

IFLSK * 0PTNS<2) 

IFLGl = 1 
N s IFLSK - 1 
IF <N) 50.50.40 

40 N = N - I 

CALL SPACE <NIT, IFLGl. NIT. ISTAT) 

IF (N) 50.50.40 . 

50 CALL REAHO <ISYS) 

I = 1 

Cffl: HEADER DATA TEST BY M INTER. 

C*rc ONE CHANNEL MUST NOT BE LARGER THAN ONE RECORD. 

IF<ID<3)- 1) 80.30.75 
75 WRITE 00.575) ID<3) 

OR SUM ERRORS USING lERR • lERR ♦ 2 
575 FORMAT < IX. " FLAG3 * “. 14.''. INDICATES CHANNEL LARGER THAN 
"RECORD ") 

ID<3 ) » 1 

START OF UIDEO DATA SHOULD BE GREATER THAN ZERO. 

SO IF (IDvl)) 85.85.90 
S5 IDCl) * 1 

NUMBER OF DATA SETS PER RECORD IS GREATER THAN ZERO. 

90 IF <I0<9)> 95.95.100 
95 I0C9) * 1 

C*f* EXPECT 8 BITS FROM ORIGINAL DATA IN BYTES. 

100 IF (ID<7) - 8) 105. 110. 105 

rttt AGAIN FOP ERROR SUM. lERR * lERR ♦ 4 
105 WRITE <10.600) IDC7) 



oo 






! 


600 FORMAT UX," NO OF BITS « % 15) 

I0<7> - 8 

Ct*t POSITION TAPE TO START OF REQUESTED DATA, 
lie ITEM « 0PTN8< 1 > 

WRITE <ie.6ie> NIT. ISTAT 

610 FORMAT < IX." READ DATA RECORD NEXT. PARITY-". IS. 
ISTAT - 8192 
N - 4080 

120 CALL RDTAPE <NIT. lA. N. NIT. K8HRT. ISTAT) 

1N<1) » IA<47) 

IN<2) - IA<48) 

CALL C0N79 (IN. IB) 

IF <IB<3) - ITEM) 120.140.130 
130 WRITE (10.630) IFLSK. IB(3) 

630 FORMAT <1X." ON FILE ". 14." FIRST LINE IS". 15) 
140 MNUS » -1 

CALL SPACE (NIT. NIT. MNUS. ISTAT) 

RETURN 
END 

PFADY 



STAT-". lb > 


3.2.5 SOFTWARE COMPONENT NO. 5 (CON79) 


3. 2. 5.1 Linkage 

Sxibroutine CON79 is called by subroutines INITN and REAHD in 
overlay USER08 emd by ROLIN in overlay T2. 

3. 2. 5. 2 Interface 

Interface is accomplished by one input argument and one output 
argument . 

3.2.5. 3 Input 

The input argument lA is a two-word array read from 7-track tape. 

3. 2. 5. 4 Output 

The argument IB is a 3-word output array, one byte/word, right 
justified. 

3. 2. 5. 5 Storage Requirements 
Subroutine CON79 requires 64 words in core. 

3. 2. 5. 6 Description 

Subroutine CON79 is designed to convert 7-track unformatted input 
data to formatted information in the form it originally appeared 
in a 9-track tape format. It is specifically designed to 
restore the data to its form as it appeeurs on a Universally 
formatted classified tape. 

3. 2. 5. 7 Flowchart 

3. 2. 5. 8 Listing 



(C0N79) 


c 


START 


CONVERT DATA 
FROM 7-TRACK 
INPUT TAPE 
BACK INTO 
ORIGINAL 
FORMAT 


*n 


RETURN 





LIST LINES - 33 

RE^i)Y 

TITLE C0N79 

PROGRAM lO-SUBROUTlNE CON79 
PROCRAMI1ER-PAUL LIN<LEC 626-49 30FTMARE 
OEUELOPMENT SECTION) 

DATE-SEPT 3,1976 

FUNCTION-CONUERT 2 WORDS READ FROM 7 TRACK TAPE 

TO 3 WOROSa BYTE/WORO, RIGHT JUSTIFIED) 


example = 

FROM WORD lOeUWMUWW 08UUUUUU 
WORD 2<0eZZZZZZ eeVYYYYY 

TO WORD l eeeeeeee wwuwwwuu 
WORD 2’eeeoeeee uguuzzzz 

WORD 3=00000000 2ZYYYYYY 
S0UPCE»<C0N79 A> 

0BJECT*<C0N79=R> 

rHLLlNC SEQUENCE = 

CALL C0N79<IA,IB> 

WHERE I A IS A 2-WORO INPUT ARRAY READ FROM 7 TRACK TAPE 
IB IS A 3-WORO OUTPUT ARRAY, 1 BYTE/WORO, RIGHT JUSTIFIED 


EHT C0N79 

EXTO CPYL, .FRET 

MREL 


coMr-ji 


JiF: 8 CPYL 
STm 3,SAl'E 
LOH 0,FTSTR,3 
LOA 2,FTSTR^1,3 



i 


LIST LINES - 65 
MOU 0,3 

PROCESS 1ST OUTPUT BYTE 

LDP 0,0,3 
LOP inPSKl 
PNO 1 0 
LDP l,SMFT4 
CONOl M0U2R 0,0 

INC 1.1, SZR 
JMP CONOl 
3TP 0,TEMP 

LOP 0,0,3 
LOP I tIPSKR 
hNO 1,0 
LOP 1,SHFT6 
C0H02 NO'JZR 0,0 

INC 1,1, SZR 
JtIP CON02 

LDP l.TENP 
PDO 1,0 
STP 0,0.2 

, PROCESS 2ND OUTPUT BYTE 

LOP 0.0,3 
LDP 1,NPSK2 
PNO 1,0 
LDh 1,SHFT4 
CONO.^ MO'iZL 0.0 

INC 1,1, SZR 


JI1P CON03 
STP BTEMP 

LOP 0,1,3 
LOP l,riP8KR 
PNO 1,0 

nous 0,0 
nouzR 0,0 
nouzR 0,0 

LDP 1 TEMP 
POO 1 0 
STP 0 1,2 

> PROCESS 3R0 OUTPUT BYTE 

LOP 0,1,3 
LOP 1,MPSKL 
PNO 1,0 
STP 0,TEMP 
LOP 0,1,3 
LOP l,np$K3 
PNO 1,0 
nOUZR 0,0 
nouzR 0,0 

LOP I, TEMP 
POO 1,0 
STP 0,2,2 

LDA 3, SPUE 
JSR B.FRET 

REPOY 


JT 


LIST LINES ' 65 


NASKl 

oeeese 

iCET 

BITS 

10.11 

n»)SK2 

000017 

>CET 

BITS 

12-15 

fl<)SK3 

001400 

iCET 

BITS 

€.7 

MASKL ^ 

000377 

;GET 

BITS 

8-13 

MrtSKf? 

177400 

>CET 

BITS 

0-7 

SHFT4 

-4 




SHFTS 

-6 




SrtL'E 

0 




TEMP 

0 





END 




'■•EhDV 







3.2.6 COMPONENT NO. 6 (RDLIN) 


3. 2. 6.1 Linkage 

Subroutine RDLIN is the driver (main) routine In overlay T2. 
RDLIN calls the user subroutines ISET, CON79, and FRAME, as well 
as various system subroutines which read the Input tape and 
create the temporary data file TDATA. After execution, RDLIN 
calls In overlay T3. 

3. 2. 6. 2 Interface 

Subroutine RDLIN communicates with Its associate subroutines via 
the common parameter block ICONS. 

3.2.6. 3 Input 

Subroutine RDLIN accepts Input from the 7-track input data tape. 

3.2. 6. 4 Output 

RDLIN creates a temporary data file TDATA on the system disk. 

3. 2. 6. 5 Storage Requirements 

Subroutine RDLIN requires 1054 words in core. 

3. 2. 6. 6 Description 

Subroutine RDLIN reads the classified data tape, packs the 
classified data 16 pixels per word, and stores these data on a 
temporary disk file, TDATA. 

3. 2. 6. 7 Flowchart 

3. 2. 6. 8 Listing 



1 "IRREGULAR , 
FORMAT 

i INDICATED" ; 

i -■-> 


/' 

i START ] 


(RDLZN) 


INITIALIZE TEI^ 


AND FOPPL 


;NITI ‘.L"ZE CONTROL 
IN’..' :ES AND i 

; CLEiU.. ARR-5Y ! 

TO BE PACiCED 


RDfbE 


(SYSTEM SUB- 
ROUTINE) READ 
ONE LINE OF OATAj 
’FROM THE 7-TRAOq 
INPUT TAPE 


USER 


B 


— - CQN 29 _ J 
RAW DATA CON- 1 

Version routinei 

TO BYTE DATA j 
1 


) 


CHECK DATA 
BYTES FOR 
DESIRED CLASS j 


il 


N 


I 

all 

£Sne->jl 

^s^roCESSED '' 


,;^S DONE 

'"N 



Rewind and close 

TEMPORARY DATA 
FIIE TDATA USING! 
SYSTEM SUBROUTINES 
FRWFL AND FCLFL i 


ESTABLISH CORNERS 
TICKS IN i 

DRAWING FILE i 


FrnOv 

T5YSYEH"5UB= — 
ROUTINE) BRING 
i OVERLAY T3 INTO 
; CORE AND 
i EXECUTE T3 
■ ■ ■■■ I 



SET INDEX 
TO NEXT BYTE | 


~X 


I ISET 

SET I 
BIT W 
TC 

’ROPER 
TDATA 
) 1 



. / 




END 


3 / 


PAG 
}01i QUA! 


READY 

OIMENSION IN <2>* IB<3). IS(Se>< XA<4e8e) 

COMNON /ICONS^ IDa4>> 0PTNS(16>/ IFLGl 
DATA UNCNT. lENO 
NAME <1) * "T3" 

NAME <2) * */l“ 

NAME <3> « 0 
lER • 0 

CALL FOFFL ("TDATA", XER) 

CALL FOPFL <"TDATA"> 1. 1* lER) 

50 KT ■ 1 
NIT « 0 
IPAR ■ I0<14> 

LINRC » 0 
I8TAT ■ 0 
NHOS » 0 

DO 60 K » 50 

IS<K> • 0 
60 CONTINUE 

IF (lENO -1> 70. 390. 390 
70 ICLS - 0PTNS<6) 

N - 4080 

30 CALL ROTAPE (NIT. lA. N. IPAR. NSHR. XSTAT) 

NOL * OPTNS (4) - OPTNS (3) ♦ 1 
IF (NOL) 90. 90. 100 
90 NOL » ID <6) 

GO TO 115 

100 IF (NOL - ID(6)) 115.115.110 

lie NRITE (10.615) NOL. ID (6) 

615 FORMAT (IX." WANT". 15." PIXELS PER LINE? WILL TRY". 15) 
NOL * 10(6) 

OPTNS (4) - 0. 

115 IF (ISTAT > 4) 160. 140. 120 

120 lEND - lENO ♦ 1 


>3tr 

Jc> 



READY 

IF UENO - 1> 149/ 125/ 399 

125 WRITE <10/ 620 > ISTAT/ LNCNT 

620 FORMAT <1X/" STATUS WORD -"/IS/" TOTAL LINES DONE IS" *15) 
140 WRITE <10/ 620> ISTAT/ LNCNT 
160 IF <ID<8) -1> 170/ 400/ 400 

170 lAOO » MOO <IFLG1/10> 

IF <IAOO - 5> 200/ 200/ 100 
180 IFLGl * 5 - lAOO 
100 » 0 
GO TO 220 
200 100 » I0<4) 

220 ISTAT * 0PTNSC3) 

L = 0PTNS<5) 

IP » I0<6) » <L - 1> ♦ 100 ♦ ISTAT 
L • 0 

240 lAOO « 2 » <IP ♦ <I0<6> t IO<S>> » LINRO 
100 • MOO <IAOO/ 3> 

ISTAT *3-100 
100 * MOO < ISTAT/ 3 > 
lADO « IAOO/^3 
I * lAOO * I 

IF <100 - 2> 260/ 250/ 260 
250 I » I - 1 

260 IF <I - 4079 > 270/ 270/ 350 
270 IF <ID<8> - 1> 280/ 410/410 
280 IN<1> * IA<I> 

IN<2) * IA<I ♦ 1) 

CALL C0N79 < IN/ IB) 

N ■ 100 ♦ 1 
00 340 J « N/3 
NWOS s NWOS * 1 
L » L ♦ 1 

IF <L - 16) 300/300/290 





LIST LINES - 33 


290 

300 

320 

340 


350 

355 

360 


362 

365 

370 

330 

390 


385 

385 

395 


READY 


L * 1 

KT a KT ♦ I 

IF <1CLS - IB(J>> 340. 320. 340 
CALL ISET <IS<KT). L) 

CONTINUE 
100 > 0 


I » I ♦ 2 

IF CNUOS - NOD 260.260. 360 
IFLGl « nOO <IFLG1. 10 > 

IF CIFILGI - 5> 360. 360. 355 

IFLGl = 5 - IFLGl 

LNCNT - LNCNT ♦ I 

LINRC * LINRC ♦ I 

10 <13) » KT 

IBYT * 2 » KT 

CALL FWTFL < I ■ IS. IBYT. IER> 

IF < LINRC - I0<9>) 362. 365. 365 
KT » I 


GO TO 240 

ISTAT • OPTNS <2) - OPTNS< I ) ♦ I 05 
IF < LNCNT - ISTAT) 380. 370. 370 
lENO « 1 

IF < LNCNT- 200) 50. 398. 390 
CONTINUE 

lER) 
lER) 

395. 385 
lER 

ERROR SET AT". 15." 


CALL FRUFL <1. 

CALL FCLFL <1. 

IF <IER) 385. 

WRITE <10.885) 

FORMAT <IX." 

STOP 
KSC«0 . I 
YSC*0 1 

HLINES=0PTNS<2) - OPTNS< I ) ♦ 


1.1 


FROM WRITE. REWIND OR CLOSE" 




ORIGINAL PAGE IS 

POOK OFAf 


NPX *0PTNS<4) - 0PTNS<3> ♦ 1 . 1 

XnAX«NPX 

YtlAX-NLINES 

CALL FRAnE(XMAX.YI1AX>XSC^YSC> 

CALL FRNOU (NAME. IER> 

PAUSE FRNOU IN REAOLINE FAILED. 

400 lENO *> 1 

WRITE <ie,9ee> io<8> 

900 FORMAT <lX/“ IRREGULAR FORMAT INDICATED BY"> 14) 
READ <11> I 
IF <I) 370. 370. 410 

410 ID<8> * -1 

lENO s 0 
GO TO 170 
END 

READY 




3.2.7 SOFTWARE COMPONENT NO. 7 (ISET) 


3. 2. 7.1 Linkage 

Subroutine ISET is called by ROLIN in overlay T2. 

3. 2.7. 2 Interface 

RDLIN communicates with subroutine ISET via two calling arguments. 

3. 2. 7. 3 Input 

The argument IS(KL) is the KLth word in vector IS. 

The argument L is the bit number in IS (KL) which needs to be set 


3. 2. 7. 4 Output 

The argument IS(KL) is returned with the Lth bit set to 1. 

3. 2. 7. 5 Storage Requirements 
Subroutine ISET requires 26 words in core. 

3. 2. 7. 6 Description 

Subroutine ISET sets the appropriate bit in a 16-bit word to 
indicate a pixel belonging to the class being examined. These 
words are the packed data which RDLIN packs into the temporary 
data disk file TDATA. 

3. 2. 7. 7 Flowchart 

3. 2. 7. 8 Listing 


START 


SET THE 

APPROPRIATE BITS 
IN A 16-BIT 
WORD TO INDICATE 
\ WHICH PIXELS 1 
i BELONG TO THE | 
(|;LASS being EXAM.j 


RETURN 


j 


«'-i r~ar «ihi 


LIST LINES - 60 


of'pw/' is 

quality 


READY 



TITL 

ISET 


ENT 

I SET 


EXTD 

NREL 

CPYL. .FRET 

ISLT 

^JSR 

a . CPYL 


STA 

3..SAUE 


LDA 

0.8FTSTR..3 


STA 

0.OALU 


r<lEG 

0. 1 


ADO 

0<1 


MOOOR 

1. 1 


LDA 

0.8FTSTR+1.3 


STA 

0.8FTSTR+1.3 


3TA 

0.CONS 

LOOP 

LDA 

0.CONS 


DS2 

CONS 


JMP 

RITS 


LDA 

0/UALU 


HDD 

e. 1 


STA 

1 .. UALU 


JMP 

END 

PITS 

MO'v'F; 

1,1 


JMP 

LOOP 

END 

LDA 

l,OALU 


STA 

l,aFTSTR,3 


LDA 

3, SHOE 


JSR 

e.FRET 

Sh' 'E 

0 


ONS 

0 


' >hLU 

0 

END 




! 

f 

\ 

f 

I 3.2.8 SOFTWARE COMPONENT NO. 8 (FRAME) 

3. 2. 8.1 Linkage 

Subroutine FRAME is called by ROLIN, and calls subroutine LINIT. 

3. 2. 8. 2 Interface 

FRAME receives format and scaling information through four input 
parameters . 

3. 2. 8. 3 Input 

Four calling arguments are input to subroutine FRAME reflecting 
format and scaling constraints. 

3. 2. 8. 4 Output 
None 

3. 2. 8. 5 Storage Requirements 

Subroutine FRAME requires 347 words in core. 

3. 2. 8.6 Description 

Subroutine FRAME computes the output frame size, generates four 
corner ticks for the plot file, emd calls sul>routine LINIT to 
write these ticks in the plot file. 

3. 2.8.7 Flowchart 

3. 2. 8. 8 Listing 



(FRAME) 


START 


SET UP X,Y 
ARRAY FOR : 
LOWER LEFT TIC|K* 


! LIMIT 

Tplot lower left 

TICK IN 
; DRAWING FILE 


1 SET UP X,Y : 
ARRAY FOR LOW-! 
ER RIGHT TICK> 


, _ LIMIT _ j 

PLOT LOWER 
RIGHT TICK in! 
DRAWING FILE j 


SET UP X,Y 
ARRAY FOR 
PPER RIGHT TIC 


r ■ LIMIT _ J 
; DRAWING FILE 


FOR UPPER 
L. LEFT TICK i 


r LiNtT 

( PLOT UPPER 
EEFT TICK 

IN DRAWING FILE, 

u - , , J 


RETURN 


^0 


REM)Y 

SUBROUTINE FRAHE(XI1AX. YNAX^XSC^YSC) 
OlHENSION X<3>/Y<3) 

ARII-e 9 
x< 1 >«e.e 
Y< I >*«W1 *YSC 
X<2)»0.0 

v<2>«0.0 
X<3>-ARn t xsc 
Vi ^ )bA a 

CALL LiNlT<X.Y,3>0) 

X< 1 >•< XMAX-ARN > « XSC 
Y< J >*0.0 
X<2>«XMAX » XSC 
Y(2)*0.0 
X<3)«X<2> 

Y<3)«ARf1 » YSC 
CALL LIMIT<X.Y.3.0) 

X< 1 >«XI1AX t XSC 
X< 2 )»Xf. 1 > 

Y< I >»< YMAX-ARM> » YSC 
Y<2>»YMAX t YSC 
X< 3 )•< XI1AX-ARM > » XSC 
Y' 3 >*Y< 2 ) 

CALL LINIT<X.Y,3.0) 

: 1 ^»ARM * XSC 
Y' I >«YMAX t YSC 
Y< 2 '*»Y< 1 ) 

X<2>*0.0 
X<3>*0 0 

3 >»< YMAX-ARM ) * YSC 
CALL LINIT<X.Y/3>0) 

RETURN 

Etc 



3.2.9 SOFTWARE COMPONENT NO. 9 (LINIT) 


3. 2.9.1 Linkage 

In overlay T2 subroutine LINIT is called by subroutine FRAME. 

In overlay T3 subroutine LINIT Is called by BDT3, ENDTST, CONALL, 
CLSTST, CONECT, and FINOAR. 

3. 2.9.2 Interface 

Subroutine LINIT receives control information through the user 
common block ICONS, and through the System 100 common blocks BLK 
and MENUl. 

3.2.9. 3 Input 

LINIT receives x,y plot arrays through Its calling arguments. 

3.2.9. 4 Output 

Subroutine LINIT transfers registered boundary plot string arrays 
to a System 100 drawing file. 

3. 2. 9. 5 Storage Requirements 

Subroutine LINIT requires 313 words In core. 

3. 2. 9. 6 Description 

LINIT accepts as Input plot string arrays. Data registration is 
accomplished at this point by transforming the x,y coordinates 
of the plot arrays using either the eight coefficients input by 
the user or the default (no change) coefficients. The standard 
expression for the data transformation Is: 

Xt = (Aj^Xq + AjYq + A3)/(1 + A^Yq + AjYq) 

Yt » (AgXo + A7Y0 - Aq )/(1 + A4X0 + AjYq) 

3>4tJ^ 


where 

are the eight coefficients 
a Initial or observed coordinates 
” Transformed coordinates 

After transformation, these registered plot string arrays are 
transferred to a standard System 100 drawing file. 

3 . 2 . 9 . 7 Flowchart 


3. 2. 9. 8 


Listing 


(UNIT) 


START 


r I 

Perfonn 8 Mram- 
•t«r transfomatiion 
using sithsr ; 
efficisnts input 
by ussr or , 
default 
coefficients 


1 


I Send Arrays to 
Drawing File 



I 


Return 



LIST LINES - END 

SUBROUTINE LINIK ARX, ARY.N. ITYREAOY 
OINENSION ARX<5e>.ARY<5e> 

COnnON /ICONS/ IZ< 14>.0< 16>.1FLCI 

COMMON /8LK/X< 30 ) • Y< 30 A< 10 ), K< 30 KP/ ID< 80 > 

COMMON /MENUl/KODE .. MRFLC / SFACT / LNMOO/ LNWIO 
EQUI VALENCE <X<1 >>X1 ),<Y<l>.Yl >,<K<ll )/Kll )>CK< 12>/K12> 
EQUIUALENCE <KC 14>.K14>><K( 15>«K15>A A< 1 >> A1 >^(A<2><A2> 
C DESIGNATE FILE NUMBER 

K4=l 

IF( ITYP EQ.99) GO TO 20 
DO 1 I*l>N 
RX * ARX< I ) 

RY = ARYU) 

D » 1 ♦ 0<12) » RX ♦ 0< 13) » RY 
ARXCI) * < 0(9>»RX ♦ O<10)*RY ♦ 0<ll) ) / 0 
1 ARY<I> * <0<14)«RX ♦ 0<15)»RY ♦ 0<16) > / D 
C PEN UP COMMAND 

X1=APX< 1 > 

Y1=APY< 1 ) 

Kll»l 

CALL RWC0N<K4/2> 

C PEN DOMN COMMAND 

Kll=6 

DO le I>=2.N 
X1*ARX< I ) 

Y1=ARY< I ) 

CALL RUC0N(K4>2) 

10 CONTINUE 
GO TO 90 
^0 Kll»31 

C MRITE ENO-OF-FILE COMMAND 

CALL PWC0N<K4/2> 

90 RETURN 



A 


3.2.10 SOFTWARE COMPONENT NO. 10 (BDT3) 


3.2.10.1 Linkage 

Subroutine BDT3 is the principal routine in overlay T3, and calls 
the following user subroutines: FINDAR, FILL, READAT, CONALL, 
ENDTST, CLSTST, and LINIT. In addition, subroutine BDT3 utilizes 
the following system subroutines for drawing file manipulation: 
FOPFL, FCLFL, FDLFL, and FCNOT. 

3.2.10.2 Interface 

Subroutine BDT3 receives control information through the common 
block ICONS. BDT3 communicates with its associate subroutines 
via the conunon blocks Z,ZZ, and MAXFIL. 

3.2.10.3 Input 

Pixel data is brought in, line by line, from the disk file TDATA 
by siibroutine READAT and placed in common block ZZ for processing 
in BDT3. 

3.2.10.4 Output 

While overlay T3 is operating, BDT3 outputs a status message on 
the display device after each ten lines of requested data has 
been processed. In addition, BDT3 actuates the audible tone on 
the output device after processing is complete. 

3.2.10.5 Storage Requirements 
Subroutine BDT3 requires 9224 words in core. 

3.2.10.6 Description 

BDT3 is the routine which identifies, from the input pixel 
information, boundaries of a classified area or areas within a 
classified image. It processes the input data one line at a time. 



identifying border pixels, and building plot string arrays which 
describe the limits of the classified areas. These plot strings 
are introduced into a standard system 100 drawing file through 
subroutine LINIT, which also accomplishes data transformation as 
specified by eight user- input coefficients, for registration onto 
any desired base. Ultimately, this drawing file is output on 
a magnetic tape which is used as input to the Gerber plotter, 
which creates the final registered boundary plot. 

3.2.10.7 Flowchart 


3.2.10.8 Listing 



(B0T3) 


Initialize conmoh 
I Area for the 
Boundary 
Detection 
' Routine 


Compute con- 
trol param- 



[Find left and 
right boundary 
pj^xels on a linej 


__JFDJDAR 

, Connect seg- 
Iments found 
u appropriate 
I arrays 


"No. of pixels 
/ per line = 

/ XXXX" "No. 

/of lines to be 
i=XXXX" 


! _ CONALL 

petennine arrays ; 

I which belong 
to common group 
fpr connection aiu^ 
-c onn ectj them 


READ AT J 

Read in NEPS 
lines of data 
from disk into 
array IPIX 


Copy data from 
IPIX into 
ar£ay IPX ^ 

fill 

Fill in appro- 
priate . classi- 
zied pixels in 
Line 1 of IPX as 
defined by Epsilon 


Find upper 
boundaries of 
classified data 

for first line 
only 


FINDAR 


Initialize X,Y 
vectors for each 
boundary 
detected 




r CLSTST 
Determine which 
plot arrays are 
complete, or 
"closed", compute' 

their areas, andt 
plot the ones 
Vnoseareas are"‘ 

> Kappa. 

~ RMDfiT 

rocess plot arrays 
which are suf- 
ficiently large 
that they must be 
segmented J 


Find lower 
boundary seg- 
ments below 
present line 


1 FINDAR 
qonnect se^ents 

found to appro- 
priate eurray. If 

.none found, 

> initiate new 

> X,Y arrays 


Present 
line exactly 
livisible by 




"XXXX Lines 
Processed" 



;Shift lines up 
' one in both 
data image 

arrays 

r- 


“KEADAT 

KeAa in a 
new line of 
data 


Copy new 
(line into IPX 


r CONALL 
petermine arrays 
which belong to 
common groups for 
j connection auid 
' connect them 




■CLsiOT 


lOetermine which 
jplot arrays are 
: complete, or 
";closed", compute 

jtheir areas, ^and 
^ot those iibosei 
areas are > Kappa 


r ■ ENDTST ' 
Complete plotting 
i of segmented 
; areas remaining 


PILL 1 

Fill in appro- 
priate classified 
pixels in new 
: line of IPX 

as defined by 
I Epsilon 


i LINIT 

I Place end-of- 
■ file mark on 
; drawing file 


•Ring \ 
(Bell ■ 

I/O Device 




EXIT 


I 


READY 

COMMON /MAXFIL/ MXA 

COMMON yZy NGRUP^ARRAYX<5e.99>.ARRAYY(5e/5e>>lSIZE<5e>/ASlZE(5e> 

> ARX< Se > / ARY< 50 > / L I NE . YMAX . XSC > YSC / KAPPA 
COMMON /ZZ^ IPIX<4.256>.IPX<4.296>>NPX/EPS 
COMMON ^ICONS^ ICK 14>/0PTNS< 16>> XFLGl 
DIMENSION IAZ<296> 

INTEGER ARRAYX/ARRAYY 
MAXGRP-90 
MXA s 0 
EPS*0PTN8<7) 

KAPPA*OPTNS<8H0.1 

IBYTE*2»I0<13) 

XSC^. 1 
YSC-0.1 
KZ*1 

MPPCmCPC ▲ 1 a 

NLINES»0PTNS<2) - OPTNS< 1 ) ♦ 1.1 

NPX •0PTNS<4) - 0PTNS<3) ♦ 1.1 

WRITE <10>3)NPX.NLINES 
XMAX*NPX 
YMAX-NLINES 

C CALL FRAME<XMAX>YMAX>XSC#YSO 
i'4ELEMx0 

IF<NEPS,GT 4> WRITE<10.2) EPS 

2 FORMAK' EPSILON UALUE 0F'.F7.3, ' EXCEEDS PRESENT PROGRAM CONSTRAl 
NTS • ) 

3 FORMAT<” NO, OF PIXELS PER LINE ■'•/I4///. 

••NO OF LINES TO BE PROCESSED ■",14.//) 

CALL FOPFU "TDATA" ,2/0, IE) 

1F< IE EO.0) CO TO 5 
WRITE< 10,599) IE 
599 FORMAT< IX, ’• IE»",I4) 

PAUSE ERROR IN OPENING TOATA IN B0T3 




READY 

GO TO 99e 
5 CONTINUE 

DO 7 I-1.NEP8 

CALL REAOAT<IAZ. XBYTE) 

DO 4 JZ»1>NPX 
4 IPIX< I,JZ)*IAZ<JZ) 

7 CONTINUE 

DO 8 I«1.NEPS 
DO 8 J«1,NPX 

8 IPX<I.J>»IPIX<I.J> 

LREAO*NEPS 

CALL FILL 
N-e 

NGRUP-0 

IFL*0 

DO 10 IA»l.riAXGRP 
ASIZE<IA>-0. 

10 ISIZE<IA>«0 

FIND UPPER BOUNDARIES ABOUE FIRST LINE ONLY 
DO 100 lA-l/NPX 
IF(IPX(1>1A>> 100.100^20 
20 AX=IA'l 
hY*0. 
ex<=iA 
BY»e 

CALL FINDAR<AX.AY.BX.BY.0> 

100 CONTINUE 
LINE=0 

FIND LEFT AND RIGHT BOUNDARY PIXELS ON A LINE 
STORE LI1« SEGMENTS IN APPROPRIATE ARRAYS 
110 LINE=LINE+1 
IT1 = 1 

115 N1=IT1 



READY 


00 200 IA»N1>NPX 
1F<IPX<1>IA)> 200/200/120 

120 AX=Irt-l 
AY*LINE-l 
BX«IA-1 
BYsLINE 

CALL FIN0AR<AX/AY/6X/6Y/0> 

00 150 IBsIA/NPX 
IF<1B.EQ.NPX) GO TO 125 
IFaPX<l/IB)> 130/130/150 

125 IF(IPX(1/IB>) 130/130/126 

126 AX^IB 
AY»LINE-1 
6X«IB 
BY-LINE 
GO TO 135 

130 AX-IB-1 
AY*LINE-1 
BX»IB-1 
BY-LINE 

135 CALL FINOAR<AX/AY/BX/BY/0> 

1F(IB EQ.NPX) GO TO 210 

ITl-IB 

GO TO 115 

150 CONTINUE 

200 CONTINUE 

210 CONTINUE 

TEST FOP ARRAYS HOT CONTAINING ARRAYY<1/MAX)*LINE 
IF<nOO(LlNE/KZ>.NE.O> GO TO 290 
NNN-0 

220 IPROB-0 

00 223 IG-l/NCRUP 
IG1-ISIZE(IG> 



READY 

223 CONTINUE 

CALL CONALL<IPROB> 

CALL aSTST 

IFdPROB.EQ 1> GO TO 220 
CALL ENOTST 

290 CONTINUE 

C FIND LOI4ER BOUNDARIES BELOW A LINE 
ISKP»e 

DO 300 IA-1>NPX 
IF(ISKP) 291 >291. 401 

291 IF<IPX(1>IA).EQ 1PX(2.IA>> GO TO 300 
IF(IA EQ NPX> GO TO 299 
IPXl=IPX<l.IA) 

1PX2*IPX<2>1A> 

IPX3«IPX< 1. lA^l ) 

IPX4«IPX<2>IA^1) 

1F<IPX2.EQ.IPX4> GO TO 299 
1F<IPX1.EQ.IPX3>G0 TO 299 
IFtUA-D.EQ.NPX) CO TO 402 
IPX5»IPX<1>IA^2) 

IPX6«1PX(2>1A42> 

IFCIPX6 EQ.1PX4) GO TO 402 

IF<IPX3.EQ. 1PX9) GO TO 402 

IFUPXl EG 1.AND.EPS. GE. 1.414) CO TO 410 

1F<1PX1.EQ 0. AN0.EPS.lt. 1.414) GO TO 410 

AX«IA 

AY*LINE 

BX=IA-1 

BY-LINE 

CALL FIf^lOAPCAX>AY>BX>BY>2) 

AX-IA+l 

AY-LIHE 

BX-IA+2 


^3 


3 ^ 


READY 


BY=LINE 

CALL FIN0AR<A}<.AY«BX.BY>2> 

AX- 1 A 
AY-LINE 
BX«IA<fl 
BY-LINE 

CALL F1N0AR<AX.AY/BX«6Y,4> 

ISKP-2 
GO TO 300 

402 IF<IPX1.EQ1. AND.EPS.lt, 1.414) GO TO 415 
IF<IPXl EQ. 0.ANO.EPS. CE. 1.414) CO TO 415 
410 AX-IA 
AY-LINE 
BX-IA+l 
BY-LINE 

CALL FINDAR(AX>AY/BX>BY.2) 

AX-IA- I 
AY-LINE 
BX-IA 
BY-LINE 

CALL FIN0AR(AX>AY.BX^BY/2) 

ISKP-l 
GO TO 300 
415 AX-IA 
AY-LINE 
BX-IA-1 
BY-LINE 

CALL FINDAR(AX/AY/BX/BY>2) 

MX- 1 A 
AY -LINE 
BX^IA+1 
BY-LINE 

CALL FINDAR<AX.AY>BX.BY.3) 


< 5 ‘^ 


REM3Y 


ISKP*l 
CO TO 3ee 
299 AX»IA-1 
AY*LINE 
BX«IA 
BY=LINE 

CALL FIN0AR<AX>AY/BX^BY>1) 

CO TO see 

401 ISKPsISKP-l 
see CONTINUE 

IF<MXA LT.20) CO TO 308 
I4RITE< 10>Se7> 

307 F0RNAT<1X>“ THIS CLASS TOO DENSE TO PROCESS A SECTOR THIS LARGE* 
^.2X> “RETRY PROCRAN USING A SMALLER SPAN OF PIXELS^LINE” > 

GO TO 996 
708 CONTINUE 

IF(MOD<LINE>ie> NE.e> GO TO 309 
MRITEC I0«30€> LINE 
706 F0RMAT<1X.I4.“ LINES PROCESSED") 

305 CONTINUE 

IFCLINE.CE.NLINES) CO TO 999 
SHIFT LINES UP ONE IN BOTH ARRAYS 
NEP*NEPS-l 
00 310 I-l.NEP 
DO 310 J*l>NPX 
IPIX< I,J)«»IPIXa+l. J) 

IPX<I,J)« IPXU^l.J) 

710 CONTINUE 

READ IN HEN LINE 

I FC LREAO.GE.nl I NES) GO TO 900 

LREA0»LREA0+1 

CALL PEAOAT< IA2. IBYTE ) 

00 320 JZ«1^NPX 




326 lPlX<NEr 6 «J 2 HiI 62 <JZ> 

GO TO 6ae 

see 00 961 j«i»NPx 
sei iPiK<NEP8.j)«e 

666 CONTINUE 

00 766 J-1. HPX 
766 1PX<NEP8*J>«1PIX<NEPS<J) 

CALL FILL WILL BE INSERTED NERE 
CALL FILL 
CO TO lie 
999 NNN*1 
1660 IPROe-6 

CALL CONALLvIPROS) 

CALL CLST8T 
CALL ENOTST 
00 866 J-l/NGRUP 
IZ-1SIZE(J> 

IF<IZ> 866.866.796 
756 lF<IPR0d.EQ.l> GO TO 1866 
GO TO 801 
866 CONTINUE 
861 CONTINUE 

CALL L1NIT<ARX>ARY. 11.99) 

990 CONTINUE 

CALL FCLFLCZ/IE) 

CALL FOLFL^ "TDATA" . IE ) 

CALL FCNOT< "<7>“ > 

CALL OURLVU.IER) ; RETURN TO PROGl OF SYSTEM 161 

PAUSE OURLY ERROR-NO RETURN TO SYSTEM 181 

END 


READY 


3.2.11 


SOFTWARE COMPOKENT NO. 11 (REAOAT) 


3.2.11.1 Linkage 

Subroutine READAT ia called by subroutine BDT3, and calls 
subroutine IGET. 

3.2.11.2 Interface 

READAT transmits pixel information through the following two 
calling arguments: 

IA - vector containing one line of classified pixel indicators, 
unpacked to one pixel per word. 

IBYTE • number of bytes/line to be read from the temporary data 
file TDATA. 

3.2.11.3 Input 

Subroutine READAT reads in bit images of line data from the data 
disk file, TDATA. 

3.2.11.4 Output 

An error message may be displayed if a disk read error is 
encountered. 

3.2.11.5 Storage Requirements 

Subroutine READAT requires 125 words in core. 

3.2.11.6 Description 

Subroutine REAOAT reads in one line of packed pixel data from 
TDATA, unpacks the data into array IA using subroutine IGET, and 
transfers this line of data to subroutine B0T3. 




3.2.11.7 Flowchart 


3.2.11.8 Listing 


SUBROUTINE REROAT< IR. IBYTE) 

DIMENSION IRAV(i6>/IA<256> 
lUOS - IBYTE / 2 

CALL FROFL< 2, IRRY> IBYTE/ IBYTR/ IE > 
IF<IE.EQ.e> GO TO 12 

PAUSE DISK READ ERROR IN SUBROUTINE REAOAT 
12 CONTINUE 
IPT*0 

00 50 I»1/IM0S 
00 40 J«l/16 
L*J 

1T«IRAY< I > 

CALL ICETUT/L> 

IPT»IPT ♦ 1 
IAaPT)*IT 
40 CONTINUE 
50 CONTINUE 
RETURN 
END 

READY 



3.2.12 SOFTWARE COMPONENT NO. 12 (IGET) 


3.2.12.1 Linkage 

i ' ' 

Subroutine IGET is called exclusively by subroutine REAOAT. 

3.2.12.2 Interface 

Communication with REAOAT is accomplished through two calling 
argvunents . 


3.2.12.3 Input 

Subroutine REAOAT requests the status of the Lth bit of word I 
from subroutine IGET. 

3.2.12.4 Output 

Subroutine IGET outputs the status of the Lth bit for REAOAT. 

3.2.12.5 Storage Requirements 

Subroutine IGET unpacks the bit data read from the disk data file 
TDATA into subroutine REAOAT. 

3.2.12.6 Description 

Subroutine IGET unpacks the bit data read from the disk data 
file TDATA into subroutine REAOAT. 

3.2.12.7 Flowchart 
Listing 



3.2.12.8 


Unpack the 16- 
bit data words 
which READAT 
extracted from 
the temporary i 
.^ta_lile_TDA^ 





I 


i 


READY 



TITL 

IGET 


ENT 

ICET 


EXTD 

NREL 

,CPYL> .FRET 

1GET = 

JSR 

8.CPYL 


STA 

3..RETN 


LOA 

0..8FTSTR-H.3 


STA 

O.CONS 


NEC 

e.i 


ADO 

e> 1 


MOUOR 

!• 1 

POOL 

DS2 

CONS 


JMP 

STIR 


JMP 

MSK 

VTIR^ 

HOUR 

1/1 


JMP 

POOL 

MJ'.K •• 

LOA 

0/8FTSTR/3 


STA 

l/aFTSTR+l/S 


AND 

0/1/SZR 


JMP 

DOUT 


LOA 

l/ZERO 


STA 

1/8FTSTR/3 


JMP 

BACK 

L'j'.n 

LOA 

1/ONEl 


STA 

l/fiFTSTR/3 

B^C K ^ 

LOA 

3.RETN 


JSR 

e.FRET 

PLTH 

A 


roM? 

0 


ZERO: 

0 


riMEi 

1 

END 




3.2.13 SOFTWARE COMPONENT NO. 13 (FILL) 


3.2.13.1 Linkage 

Subroutine FILL is called exclusively by subroutine BDT3. 

3.2.13.2 Interface 

Communication of data between subroutines FILL and B0T3 is 
accomplished through the common block ZZ. 

3.2.13.3 Input 

The data block IPIX enters subroutine FILL via ZZ. 

3.2.13.4 Output 

The data block IPX exits subroutine FILL via ZZ. 

3.2.13.5 Storage Requirements 
Subroutine FILL requires 584 words of core. 

3.2.13.6 Description 

Subroutine FILL redefines appropriate pixels as classified to 
facilitate connectivity of "close" groups. The user defines the 
criteria for "closeness" via the input parameter Epsilon. 

3.2.13.7 Flowchart 


Listing 


3.2.13.8 


B 


Get One Pixel 
On the Present 
Line 


Initialize Indices for 
Distance Tests as Defined 
By Epsilon and Pixel Number 



Change all Pixels Between 
Present Pixel and Reference 
Pixel to "Classified" 








READY 


SUBROUTINE FILL 

COMMON /22^ IPIX<4.256)/IPX<4.256)>NPX>EPS 

N*EPS 

L«1 

DO 100 IPsl,NPX 
IF<.lPIX<l.lP> EQ.e> GO TO ioe 
LFP*IP-N 

IFc LFP LT .1> LFP«1 
IRP»IP-t>N 

IFaRP.CT.NPX) IRP*NPX 
IBR=L+N 
00 20 J«L.IBR 
DO 10 I*LFP,IRP 

IF( J.EQ.L.ANO.I.LE IP) GO TO 10 
IF<IPIX<J>I>) 10/10^1 

11 JPIX=<I*IP)*»2 * <J-L)»« 

P I XDST-SQRT< FLOAT< JPI X ) ) 

IFCPIXDST.GT.EPS) GO TO 10 
IFaABS<I-IP).EQ.IABS<J-L)> GO TO 18 
IF<I-IP) 12.14.13 

12 IPLUS=I+1 

00 15 II»IPLUS.IP 

15 IPXCJ.II)*! 

GO TO 14 

13 iriIN»I-l 

DO 16 II *IP.IMIN 

16 IPXCJ.IDsl 

14 IFvCJ-D.LE.l) GO TO 10 
LPLUS=L+1 

DO 17 JJ-LPLUS.J 

17 IPXC JJ. IP)«1 
GO TO 10 

18 IFU-IP) 19.14.21 



roro 


READY 


19 


30 

21 


40 

10 

20 

100 


240 


00 

300 


IPLU-Ul 

IPI1-IP-1 

IF<<IPM-IPLU>.LT.0> CO TO 10 

JJBJ 

00 30 II-IPLU/IPtI 

JJ*J-l 

IPX<JJ. II>*1 

GO TO 10 

IPPL-IP-M 

IM=I“l 

IF<<in-IPPL).LT.0) GO TO 10 
JJ=L 

DO 40 II=IPPL.IM 

JJ»JJ+1 

IPX< JJ.II)»1 

CONTINUE 

CONTINUE 

CONTINUE 

IF<N.LT.2> CO TO 300 

NPXX*NPX-N 

DO 200 IP-1,NPXX 

IF( 1PIX<2.IP>.EQ.0> GO TO 200 

IRB-IP+N 

IPP*IP>2 

DO 220 I-IPP/IRe 
IFaPIXC2,n.EQ 0> GO TO 220 
IPl=IP*l 
IR1*I-1 

DO 240 J»IP1,IR1 
IPX<2, J>«1 
CONTINUE 
CONTINUE 
CONTINUE 


3.2.14 SOFTWARE COMPONENT NO. 14 (FINDAR) 


3.2.14.1 Linkage i 

Subroutine FINDAR is called by subroutine BDT3, and calls 
subroutines CONECT, AREAl, and LINIT. 

3.2.14.2 Interface 

Subroutine FINDAR receives control information via common blocks 
Z and MAXFXL (see Appendix A), and via five calling arguments. 

3.2.14.3 Input 
None 

3.2.14.4 Output 
None 

3.2.14.5 Storage Requirements 

Subroutine FINDAR requires 693 words in core. 

3.2.14.6 Description 

Subroutine FINDAR accepts as input a boundary line segment, finds 
the plot string array, if any, to which the segment connects, and 
adds it. If no such array exists, new arrays are formed initia- 
lizing on this segment. 

3.2.14.7 Flowchart 


3.2.14.8 Listing 




READY 

SUBROUTINE FINOAR( XA.YA.X6/ YB> ITYPE > 

COMMON /MAXFIL/ MXA 

COMMON /Z' NCRUP.ARRAYX<50/50).ARRAYY<50.50)/ISXZE<5e>.ASIZE^5«. 

. ARN< 50 >. ARV< 50 >. LINE. YMAX.XSC. Y8C. KAPPA 

INTEGER ARRAYX.ARRAYY 

MAXGRPs50 

IPASS«0 

IF<ITYPE-2) 9.9.210 
^ IF(NCRUP> 200.200.10 

10 00 100 lA-l.NCRUP 
I1«ISIZE<1A> 

IF( 11-1 > 100.100. 11 

11 D1F1*XA-ARRAYX<IA,I1 ) 

IF(ABS<D1F1>.CT.0.01> GO TO 100 
DIF2«YA-ARRAYY< lA. 1 1 ) 

1F(ABS(0IF2>.CT 0 01) GO TO 100 
IHOLO«IA 

IF(Il-l) 45.45.12 

12 IlM-Il-l 

: .0=ARRAYX< lA. I IM ) 

YO«ARRAYY< I A. I IM > 

IF<ABS<XO-XA).CT 0 01 ) GO TO 25 
IFv;aBS<XA-X6>.GT .0.01> GO TO 25 
GO TO 46 

25 1 F( ABSC YO-YA ) CT . 0 01 > CO TO 45 
IF<ABS<YA-Y6).CT.0.01> CO TO 45 
GO TO 46 

45 ISIZE< IA>-1SIZE(IA> ♦ 1 
I1«1SIZE< IA> 

46 ARRAYXUA.Il )*XB 
ARRAYY- IA.11)«YB 

IF* ITYPE-1) 902.902.900 
lUO CONTINUE 



REf^)Y 

iFdPASs) i0i/iei,2ee 
lei iPASS-i 

1F<1TYPC-1> 110/110.200 
110 TEHP«XB 
XB-XP 
XA*TEt1P 
TEHP-VB 
N'B*YP 
YA*TEHP 
GO TO 10 

200 IFdPPSS) 210/210/201 

201 TEMP-XP 
XM>XB 
XB-TEMP 
TEMP-YP 
YP-YB 
YB*TEMP 

210 00 300 IP-1/I1AXGRP 

IFdSlZE<lP>> 220/220/300 
220 PPRPYXdP. 1 )«XP 
PRRPYY< IP/ 1 )«YP 
nPRPVX< IP/ 2 >«X6 
PRRPYYC IP/2)»YB 
ISI2E<IP)«2 

IFdP CT .NCRUP) NCRUP*IP 
I HOLD- IP 
CO TO 900 
300 CONTINUE 

M:<P • MXP ♦ 1 
MRITE< 10/9) LINE 

•5 FOPMPT<20X/‘PLL PRRPYS FILLED PT LINEM4> 
CO TO 990 

900 IF<ITYPE-3) 901/901/990 


11 


£»01 CALL CONECT<IHOLO> 

9Q2 00 989 lA-l.NGRUP 
NU«1SIZE<IA> 

IF<NU LT 49 > GO TO 989 
00 938 JK-1,NU 
ARX( JK;«ARRAYX<IA>JK> « XSC 
920 ARY< JK)«<YMAX-ARRAYY<IA.JK)) ♦YSC 
CALL AREAKIA«AREA> 

CALL LlNIT(ARX«ARY.NU,e> 

ASIZE< 1A>>ASIZEC lAHAREA 
ARRAYXC IA< 1 >«ARRAYX< lA/NU > 

ARRAYY( lA. 1 )bARRAYY< IA.NU) 
ISIZE<IA>«1 
969 CONTINUE 
990 CONTINUE 
RETIJRN 
END 


READY 


- 7 ^ 


3.2.15 SOFTWARE COMPONENT NO. 15 (CONECT) 


3.2.15.1 Linkage 

Subroutine CONECT is called by subroutine FINDAR, and calls 
subroutines LINIT, AREAl, and JOIN. 

3.2.15.2 Interface 

Subroutine CONECT receives control information through common 
block Z (see Appendix A) . 

3.2.15.3 Input 
None 

3.2.15.4 Output 
None 

3.2.15.5 Storage Requirements 

Subroutine CONECT requires 435 words in core. 

3.2.15.6 Description 

Subroutine CONECT accepts as input a particular plot string 
array and forces immediate connection with the appropriate other 
plot string array. 

3.2.15.7 Flowchart 


3.2.15.8 Listing 














READY 


SUBROUTINE CONECT<IH> 

COMMON .'Z/ NCRUP.ARRAYX<50>50).ARRAYY<50.50).ISI2E<:50)>ASI2E(^^ 
. ARXC 50 >> ARY< 50 > / L INE « YMAK> XSC^ Y8C^ KAPPA 
INTEGER ARRAYX.ARRAYY 
IB»ISIZE<IH) 

XA<=ARRAYX( IH> IB > 

YA=ARRAYY< IH, IB ) 

IF<NGRUP> 909.909/10 
10 00 100 I«>1.NGRUP 

IFC I EQ.IH> GO TO 100 
I1«ISIZE<I> 

IF< II LT 1 ) GO TO 100 
DIF1»XA-ARRAYX< I. II ) 

IFCABSCOIFD.GT 0.01> CO TO 100 
0IF2-YA-ARRAYY<I.I1> 

IFC A6S(0IF2).GT. 0.01) GO TO 100 
IH2>I 
GO TO 102 
100 CONTINUE 
GO TO 909 
102 IB2«ISIZECIH2> 

IFCIB2-1) 909.200.900 
200 J«IB-*>1 

DO 300 1-1. IB 
J=J-1 

ARXC I )»ARRAYXC IH, J > 

300 ARYC I >«ARRAYYC IH. J ) 

DO 400 I>1.IB 
ARRAYXC IH. I )*ARXC I ) 

400 ARRAYYC IH- I )sARY< I ) 

DO 500 1«1.IB 
ARXC I )* ARRAYXC I H. I ) * XSC 
500 ARYCI)»CYMAX-ARRAYYCIH.I>) % Y3C 



CALL LINIKARX.ARY, 1B>0) 
CALL AREAKIH.AREA) 
ASIZE<IH2)-ASIZE(IH2> AREA 
ARRAYX< IH2, 1 )«ARRAYX< IH, IB? 
ARRAYY< IH2. 1 >«ARRAYY( IH. IB? 
ISI2E<IH)»0 
CO TO 909 

900 CALL J0IN<:iH.IB^IH2>IB2/3> 
909 RETURN 
E\iD 


READY 



3.2.16 SOFTWARE COMPONENT NO. 16 (CONALL) 


3.2.16.1 Linkage 

Subroutine CONALL is called by subroutine BDT3, and calls 
subroutines JOIN, AREAl, and LINIT. 

3.2.16.2 Interface 

Subroutine CONALL receives control information through common 

J 

block Z (see Appendix 1) and one calling argument. 

3.2.16.3 Input 
None 

3.2.16.4 Output 
None 

3.2.16.5 Storage Requirements 

Subroutine CONALL requires 513 words in core. 

3.2.16.6 Description 

Subroutine CONALL determines which plot string arrays should be 
linked or connected, and how they should be joined (ordering) . 

3.2.16.7 Flowchart 

3.2.16.8 Listing 


3 - 










REM)V 


SUBROUTINE CONALU IPROB > 

COMMON /Z/ NGRUP/ARRAYX<Se^5e>.ARRAyY<5e.90>.ISlZE<9e>.ASIZE<56> 
. ARX( Se >. ARY< 50 > / L INE ^ YMAX> X8C^ Y8C> KAPPA 
INTEGER ARRAYX.ARRAYY 
00 200 J«i.NGRUP 
IS«ISIZE< J) 

IF<IS-1) 2OO.2O0>ie 
10 DO 100 I-l/NGRUP 
IFC I EQ.J) GO TO 100 
IS2sISI2E<I> 

1F(IS2>1> lOe.100/20 
20 IN0«1 


XA»ARRAYX< J. 1 ) 

YA»ARRAYY<J/1) 

XB»ARRAYX< M ) 

YB«ARRAYY< M > 

22 DIFl-XA-XB 

IF<ABS<DIF1>.GT.0.01) CO TO 25 
DIF2*YA-YB 

IF<ABS<0IF2>.CT.0.01> GO TO 25 
IPROB*! 

JA»J 

ISA=IS 


01UC.1NAL P AGE K 

OP voou UUALIix 


lA-I 

IS2A=IS2 

CALL JOINC JA.1SA.IA.IS2A«IN0> 
1S«ISIZE< JA) 

J=JA 

IF( IS.LT.24) GO TO 24 
DO 2? IJ*I.IS 
ARX<I J)-ARRAYX(J,IJ> ♦ XSC 
23 ARVaJ)*<YMAX-ARRAYY< J. IJ)) % YSC 
CALL LIHlT<ARX.ARY^IS/0> 


CALL AREAICJ.AREA) 
ASIZE<J)«ASIZE<J> ^ AREA 
IF <ARRAYY<J.1>.LT.LINE> CO TO 235 
ASlZE<IA)«e. 

ARRAYX< lA, I >*ARRAYX< J. 1 ) 

ARRAYY< I A , 1 >»ARRAYY< J / 1 ) 
ISIZECIA)-! 

£35 ISI2E<J>»1 

ARRAYX< J> I )»ARRAYX< J, IS ) 

ARRAYY< J. I >»ARRAYY< J> IS ) 


24 CO TO 200 

25 INDsINO-M 

GO TO <20/30^40/50^ iee>. lNO 
30 XB»ARRAYX< I / IS2 ) 
VB=ARRAYY<I/IS2> 

GO TO 22 

40 XA»ARRAYX( J/ IS) 

YA»ARRAYY< J/ IS ) 

GO TO 22 

50 XB»ARRAYX< I / 1 ) 

YB»ARRAYY< I / 1 ) 

GO TO 22 
100 CONTINUE 
200 CONTINUE 
RETURN 
END 
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3.2.17 SOFTWARE COMPONENT NO. 17 (JOIN) 


3.2.17.1 Linkage 

Subroutine JOIN is called by subroutines CONECT and CONALL. 

3.2.17.2 Interface 

Subroutine JOIN receives control Information through common 
block Z (see Appendix A) . 

3.2.17.3 Input 
None 

3.2.17.4 Output 
None 

3.2.17.5 Storage Requirements 
Subroutine JOIN requires 358 words in core. 

3.2.17.6 Description 

Subroutine JOIN connects plot string arrays as determined by 
subroutines CONALL and CONECT. Arrays which are no longer 
needed, i.e., whose coordinates have been linked to another 
array, are flagged for reuse. 

3.2.17.7 Flowchart 

3.2.17.8 Listing 







T* 


1 


REMY 

SUBROUTINE JOINC J, IS. MS2« IN0> 

OiriENSlON ATX(Se).ATV<50) 

C0IH10N NGRUP/ARRAYX(9e/9e>^AkRAYY(3a.S0?USIZEc3e>/ASlZE(Se > 
. .ARX<Se).ARY<9e>/LINE/YnAX.X8C«Y8C>KRPPA 
INTEGER ARRAYX/ARRAYY 
IF< INO NE.2> CO TO 1 
IT-J 
J»I 
I-IT 
IT-IS 
IS*1S2 
IS2-1T 

1 CO TO <ie« 30/20/ 30 )/IND 

10 isn-ts-u 

00 12 I1-1/I8 

isn*isii-i 

ATX< isn >«ARRAYX< J/ 1 1 > 

12 ATY( ISM >«ARRAYY( J/ 1 1 ) 

00 14 II-l/IS 
ARRAYXC J/ 1 1 )«ATX< I ! > 

14 ARRAYY<J/II)-ATY<II> 

GO TO 30 
20 ISM«IS2^1 

DO 22 II-1/IS2 
ISM«ISM-1 

ATXaSM )*ARRAYX<MI) 

22 ATY< ISM )»ARRAYY< M I > 

DO 24 11-1/ IS2 
ARRAYX<I/I1>»ATX<1I> 

24 ARRAYY' I / I I )*ATY< I I > 

30 I >0 

N£ME>IS«IS2-1 
DO 96 11«IS/NEUE 



j 

I 


A 



AmMYX< J> 1 1 >«MtmtV>« M J > 
i 50 0RRAYY(J.II>-AMMYY<MJ> 

ISIZE<J>«»€He 
18IZE( I »e 
RETURN 

^ END 

READY 




3.2.18 SOFTWARE COMPONENT NO. 18 (CLSTST) 


3.2.18.1 Linkage 

Subroutine CLSTST is called by &<'bi.outine BDT3, and calls 
subroutines AREAl and LINIT. 

3.2.18.2 Interface 

Control information and data are communicated to subroutine 
CLSTST via common block z (see Appendix A) . 

3.2.18.3 Input 
None 

3.2.18.4 Output 
None 

3.2.18.5 Storage Requirements 
Subroutine CLSTST requires 324 words in core. 

3.2.18.6 Description 

Subroutine CLSTST accepts as input plot string arrays and 
determines whether these strings are complete/ or “closed". 
Arrays which are complete are sent to subroutine AREAl for 
area comp itation, and upon returning/ are plotted if the area is 
^ Kappa/ a user-supplied constant. 

3.2.18.7 Flowchart 

3.2.18.8 Listing 












SUBROUTINE CLST8T 

COnnCyN /Z/ NGRUP.ARRAYXC9e,9e><ARRAYYCSe.Se>.lSlZE<^^SB>>RSlZEC9e> 
. *ARX(S8>>ARY<Se>/LXNE.YI1AX.X8C.Y8C/KRPRA 
INTEGER ARRAYX.RRRRYY 
IF<NCRUP) 999.999.10 
10 00 100 I-l.NGRUP 
A1«ASIZE< I > 

IF<ABS<A1> GT.O.l) GO TO 100 
I1»I81ZE<I> 

IF<I1.LT.2> GO TO lOO 
0IF1*ARRAYX< I . 1 >>ARRAYX( I . I 1 > 

XF<ABS<0IF1>.GT.0 01> GO TO 100 
0XF2*ARRAYY< X . 1 >-ARRAYY< X . X 1 > 

IF<ABS(0IF2).GT.0.01> GO TO 100 
CALL AREAKX.AREA) 

IF<AB$< area >.LT. KAPPA) GO TO 90 
00 90 JK-l.Xl 

ARX<JK)»ARRAYX(X.JK> « XSC 
50 ARY<JK>*<YMAX-ARRAYY<X.JK)) % YSC 
CALL LXNIKARX.ARY/Xl.O) 

ASX2E< X )«>ASX2E< X ) * AREA 
LX«ARRAYX<X.1> 

LY*ARRAYY< X . 1 ) 

C l4RXTE<10.6e>LY.LX.A8XZE<X> 

C 60 F0RI1AT<' AREAC.X3. • X ' . X3. ' )■* .F8.2) 

ASX2E<X>«6. 

90 ISX2E<X)»0 
100 CONTINUE 
999 RETURN 
END 
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I 3.2.19 SOFTWARE COMPONENT NO. 19 (AREAl) 

3.2.19.1 Linkage 

Subroutine AREAl is called by subroutines CONECT, CONALL, FINDAR, 
CLSTST, and ENDTST. 

3.2.19.2 Interface 

Control information and data information are communicated by means 
of common block Z (see Appendix A) . 

3.2.19.3 Input 

A plot string index is input to AREAl via a calling argument. 

3.2.19.4 Output 

An area value is output via a calling argument. 

3.2.19.5 Storage Requirements 
Subroutine AREAl requires 122 words in core. 

3.2.19.6 Description 

Subroutine AREAl accepts as input a plot string array, either 
partial or complete. AREAl computes the area or partial area 
in pixel units that this array represents. 

3.2.19.7 Flowchart 



3.2.19.8 Listing 





SUBROUTINE BREAK I. AREA) 

COnnON yZ/ NGRUP.ARRAYX<9e^Se>/ARRAYY<9B/9e)^I$X2E<Se>.Adl2E<Se> 
. .AR)«90>.ARY(9e>/UNE.Yt1AX.X8C.Y8C^KRn^ 

INTEGER ARRAYXiARRAYY 

COMPUTE AREA USING ARR«VX< I/ALL)« ARRAYYC X#RU) 

I1«I8I2E<I> 

AREA-e. 

00 lee j«2.ii 

OX-ARRAYX< I / J )-ARRAYX< I / J-I > 

AREA»AREA * 0X» ARRRYY(I.J) 
tee CONTINUE 
RETURN 
ENO 

REAOY 



3.2.20 SOFTWARE COMPONENT NO. 20 (ENDTST) 


3.2.20.1 Linkage 

Subroutine ENDTST is called by subroutine BDT3, and calls 
subroutines AREAl and LINIT. 

3.2.20.2 Interface 

Subroutine ENDTST receives control infomiation through conunon 
block Z (see Appendix A) . 

3.2.20.3 Input 
None 

3.2.20.4 Output 
None 

3.2.20.5 Storage Requirements 

Subroutine ENDTST requires 723 words in core. 

3.2.20.6 Description 

Subroutine ENDTST handles, by segmentation, plotting and 
summation of area measurement for large plot strings which cannot 
be stored contiguously. 

3.2.20.7 Flowchart 



3.2.20.8 Listing 


(ENDTST) 

S TAR T 


Do Any 
Plot Strings 
^Belong to a Segmented. - 
Group? 


AREAl 


Sum Partial 
Area of these 
Plot Strings 


Set Arrays 
For Reuse 


L... 


Do Two 
Coinnon End 
Points Exist? 




Are All N 
Completed Groups — 
\ Closed? 


Does The 
Plot String Need 
To be Reordered? 


N 


Reorder 
Plot String 


LINIT 


Plot 

Boundary 


L 


Close 

Completed 

Groups 


i; 

i : 


'AREA! ■ 

Sum Partial 
Area of This 
Plot String 


RETURN 


:m)y 

SUBROUTINE EN0T8T 

OINENSION LRKC50>,LRY<80) _ _ 

COnnON /Z/ NGRUP>ARRAYX(Se«5e>«RRMYY<Se/9e>«XSXZE<5B>.RSIZE<Se> 
, RRX< SB >« ARY< SB >« LINE/ YNAX# X8C/ Y8C# KRPPR 
INTEGER RRRAYX/RRRRYY 
IF<NGRUP) 99<S9#i 

1 DO IB X-l.NGRUP 
I1«X8I2E<X> 

IF<Xi-l> 18«2«1B 

2 DO 9 >1.NGRUP 
X2-XSXZE<J> 

IF(X2-1> 9»9»Z 

3 N«1 

AXl>BRRAYX<I/i> 

AY1*RRRRYY<I«I> 

4 AX2«ARRAYX<J.N> 

AY2«ARRRYY<J>N) 

IF(RB8(RX1-RX2>.CT.B.B1> GO TO 9 
IF(RBS(RYI-AY2>.GT.B.B1) go to 9 
IF<N-l> 8/8.7 

5 IF<N-I2> 6/9/6 

6 N»I2 
GO TO 4 

7 L«I2^I 

00 71 LL-X/X2 
L*L-1 

LRX<LL)i>RRRAY}«J/L) 

71 LRY<LL>«RRRAYY<J/L> 

00 72 LL-1/X2 
ARRAYXC J/LL >-LRX< LL > 

72 ARRAYY<J/LLXRY<LL> 

8 00 88 L-1/X2 
ARX<L>«RRRAYX<J/L> t X8C 



i 


oo 


KEMY 

88 ARY<L)«<YH8X-ARRAYY<J.t>) « Y8C 
CALL LIN1T<ARX«ARY/I2«e> 

CALL AREAKJ.AREA) 

ASIZE< X >A8I2E( I > AREA 
I81ZE<I»1 

ARRAYX( I « 1 )*ARRAYX< J> 12 > 

ARRAYY< I > 1 >«ARRAYY( J. 12 > 

ISIZE(J)^ 

ASIZE(J>»e. 

GO TO 18 
9 CONTINUE 

10 CONTINUE 

OO 28 I-l.NCRUP 
I1-X8IZE<I> 

1F(I1*1> 28.11^28 

11 00 19 J-l.NGRUP 
IF<I-J> 12> 19^12 

12 I2*ISIZE<J> 

1F(12>1> 19.13^19 

13 AX1»ARRAYX<I/1> 

AY1«ARRAYY< I / 1 ) 

AX2-ARRAYX(ja> 

AY2«iiARRAYY<J/l> 

lF<A6S<AXl-AX2).GT.0.ei> GO TO 19 
1F<ABS(AY1 AY2).GT.0.81) GO TO 19 
LX-AXl 
LY-AYl 

AREA»ASXZE< I >-A8IZe< J > 

HRITEC 18/ 14>LY.LX/AREA 

14 F0RI1AT<“ AREA<"/I3/" / M3/* )«"/F8.2) 
ASIZE<I>>0. 

ASIZE(J»8. 

ISI2E( I >-0 



i$iZE(j)«e 

19 CONTINUE 

20 CONTINUE 

DO 30 J«1«NGRUF 
J1«ISI2E<J> 

IF<J1-1 >30/ 29/30 

29 LX*0RR0YX<J/1) 
LY«ARR0W<X1) 
IF(LY.GE.LINE) GO TO 30 
0S1ZE<J»0. 

ISIZEC J>«0 

30 CONTINUE 
99 RETURN 

END 


READY 


4 . OPERATION 


The users of this software system are researchers and analysts 
who need a method of comparing classification results to ground 
truth and an accurate means of production display of classification 
results. The input to this software system is a 7-track, 800 
BPZ universally formatted classification data tape directly or 
indirectly obtained from the GE Interactive Multispectral Image 
Analyst System (IMAGE 100), the Earth Resources Interactive 
Processing System (ERIPS) , and the UNIVAC 1100 Software (EOD- 
LARSYS) . If any of the above-mentioned systems does not support 
7-track, 800 BPI output tape, the user may use the conversion 
capability available in Bldg. 12 to meet this requirement. 

4.1 USER DOCUMENTATION 

There is no formal user's document required in this phase 
implementation; the function of such a document is satisfied by 
the Technical Memorandum entitled "Software Specifications for 
Automated Thematic Plotting of Classified Digital Data", April 
1976 (LEG 8289). 

4.2 OPERATION DOCUMENTATION 
N/A 
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Figure 3; User's Procedure (continued) 
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denotes most of the following: BDT3, ENDTST, CLSTST, CONECT, CONALL 

JOIN, and FINDAR. 


